Joo 
aoa 
Jju4 
au4 
Joo 
aod4 
au4 
oau4 
Jju4 
saou4 
au4 
au 
aou4 
Jjouu4 
ays 


ee) 
ee eee 
ee ee 


B 13 


**F ILE**1D**NMLFORWRD NMI 


| 

} 
NN NN MM MM LL FFFFFFFFFE © 000000 RRRRRRRR WW Ww RRRRRRRR — DDDDDDDD | 
NN NN MM MM OLL FFFFFFFFFF | QO0000  RRRRRRRR Wl WW RRRRRRRR DDDDDDDD | 
NN NN MMMM MMMM LL FF 00 00 RR RR WW ww RR RR DD DD | 
NN NN MMMM MMMM LL FF 00 0 RR RR WW Ww RR RR DD DD | 
NNNN NN MM MM LL FF 00 00 RR RR WW Ww RR RR DD DD : | 
NNNN NN MM MM MM LL FF 00 00 RR RR Wl ww RR RR DD DD | 
NN NN NN MM MMOLE FFFFFFFF © 00 00 RRRRRRRR WW Ww RRRRRRRR DD DD | 
NN NN NN MM MM LL FFFFFFFF © 00 00 RRRRRRRR = WW WW RRRRRRRR DD DD | 

N  NNNN MM MM IL FF 00 00 RR RR WW Ww WW RR RR DD DD | 

NN NNNN AM MM LL FF 00 00 RR RR Ww WW Ww RR RR DD DD | 
NN NN MM MM oLL FF 00 00 RR RR WWWW WWWW RR RR DD DD Bee 
NN NN MM MM LL FF 00 00 RR RR WWW WWW RR RR DD DD pe 
NN NN MM MM LLLLLLLLLL OFF 000000 ~=—saRR RR WW ww RR RR DDDDDDDD sat: 
NN NN MM MM LLLLLLLLLL OFF 000000 ~—saRR RR WW Ww RR RR DDDDDDDD =e 

} 
LL HII SSSSSSSS 
tL HI! SSSSSSSS | 
tL II Ss | 
tL II Ss | 
LL I] S$ 
tL iI $§ | 
tt I SSSSSS 
tt II S855S5 
LL II SS | 
tL II $§ 
tL I $5 | 
LL II SS | 
CLLLLLLLLL TIIIII «© SSSSSSSS | 
LLLLLLLLLE «= sd «= SS888SSS | 


“Se epee ar > aa a eM tc Sa 
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“ 1e-Sep-19 4 992433 ENML.SRC NMLFORWRD.B32; 1 < m1) voi 
; 1 0001 Q XTITLE ‘Network Management Listener module to forward NICE messages' | : 
H ¢ 8308 Q MODULE NMLSFORWARD ( $ 
3 B88 0 ADDRESSING_MODE (NONEXTERNAL=GENERAL), : 
: 4 004 0 ADDRESSING MODE (EXTERNAL=GENERAL), ; 
; 5 0005 QO IDENT = ‘V04-000') = : 
3 6 ie) 0 ; 
; 7 007 1 BEGIN 5 
: 8 0008 1 3 
; 9 0009 1! 3 
: 19 Baie : Lee RRR RAE AARAAR REAR EAA EEA ERAREREREREREE $ 
; '® * F 
: 1 OO1g 1 + COPYRIGHT (c) 1978, 1980, 1982, 1984 BY , | : 
s 4 0015 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
3 ‘3 id : 7 ALL RIGHTS RESERVED. * 3 
z ‘® * P4 
; 0016 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 3 
: 17 0017 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
; 0018 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 5 
; FF 0019 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * | F 
; @& 0020 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * F 
: $) bos) ! Ms TRANSFERRED. * : 
; '® * $ 
; 2 $038 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; @& 0024 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * $ 
; $2 Bose : :* CORPORATION. * : 
zB ‘a « P 
. ar 0027 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
; 28 0028 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
: $3 0029 1 !« ® 3 
: 0 0030 1 !* * $ 
: 31 0031 1 faa e keer eee eee ARERR AAA AEA ATA TAA E AAA ARH AAA e AeA AeA eee Te ee 3 
:- i 0032 1! 3 
a 0033 1 3 
; 0034 1 !++ $ 
; 2 0035 1 ! FACILITY: DECnet-VAX Network Management Listener : 
; = 0036 1! 3 
; iv 0037 1 ! ABSTRACT: 3 
; 0038 1! : : 
; 0039 1! This module forwards NICE messages from NCP to two other programs. ; 
3 re ppee : These programs are: : 
; 642 0042 1! The Maintenance Operations Module (MOM): : 3 
; 43 00435 1! It's function is to perform maintenance functions such as down Line F 
: $3 pee ! load, up Line dump, trigger, and loop line, circuit or node. : 
:; 46 goes 1 ! The NI Configurator Module: 3 
3; «(6S 0047 1! It's function is to gather information about the various circuits 3 
; | «648 0048 1! on the NI and, when requested, return this information to NCP. NML : 
; «649 0049 1! is a conduit for the request and the returned information. In this $ 
; » 50 1! module, NML establishes a logical Link to the NI Configurator Module 3 
‘at O51 7! and forwards the NICE from NCP to it. It then takes whatever | : 
3 26 O3¢ 1! responses returned by the NI Configurator Module, and sends them back $ 
3 a 2? : to NCP. : 
3 $2 bee : } ENVIRONMENT: VAX/VMS Operating System : 
; 2 0087 1 ! AUTHOR: Kathy Perko 3 


etree 
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] 
| 

H 0058 1! 

: $02 ! CREATION DATE: 17-Jan-1983 

; 0061 1 ! MODIFIED BY: 

; B06 1! V03-006 MKP0006 Kathy Perko 11-April-1984 

: bee ! Add NCP version to buffer passed to MOM. 

; 0065 1: V03-005 MKPO00S Kathy Perko 4-Mar-1984 

3 R008 1! Don't create a new mailbox every time MOM is invoked. It 

: 494 : } eats up bytlm quota. 

; 0069 | i V03-004 MKPO004 Kathy Perko 3-yan-1984 

; 070 1! Convert old STRNLOG system service to new STRNLNM for 

; oO93 : translating logical names. 

: $078 1/ V03-003 MKP0003 Kathy Perko 10-May-1983 

$ 0074 1! Fix mailbox communication with MOM so that NMUSMOM MBX 

; 0075 1! goes into the process logical name table instead of the 

; 0076 1! group logical name table. This will force multiple incarnations 

; ot : of NML and MOM to use separate mailboxes. 

: 0079 1} V03-002 MKPO0C2 _ Kathy Perko 29-April-1983 

: 0080 1! Upcase the logical name of the mailbox used to communicate 

; ed ! with MOM, 

; 0083 1 V03-001 MKP0001 Kathy Perko 21-April-1983 

: 0084 1! se a command procedure when invoking MOM. Also, if 

; 0085 1! the SPAWN to start up MOM fails, assume it's being run 

; 0086 1! from a batch job, and start it up again with null input 

3 0087 1! and output devices. 

3 0088 1! 

: 0089 1 !-- 
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BEES EE PAM WII NINININININID 2 2 OS St 2 OOOOOCOO 
DARN =O OO AOU PUN — ODO NOE O D0 NAMEN MODS WR 
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Network Management Listener module to forward N 1b-Sep-1 
eclarations 


ZSBTTL ‘Declarations’ 


INCLUDE FILES: 


IBKARY 'LIB$:NMLLIB';: 

IBRARY 'SHRLIBS:NMALIBRY';: 
IBRARY Bt Sg le 

IBRARY 'SYSSLIBRARY: STARLET’; 


L 
L 
L 
L 
: 
TABLE OF CONTENTS: 
FORWARD ROUTINE 
nml$call_mom: NOVALUE, 
ad gp tee it NOVALUE 
nml_open_config_l nk :NOVALUE, 
nml_config_qio, 
nml_chkerr: NOVALUE; 
4 
Externals 


$nml_extdef; 


EXTERNAL 
nml$gb_ncp_version; 


EXTERNAL LITERAL 
nml$_opabterm; 


EXTERNAL ROUTINE 
IBSSP 


L WN 
LIBSASN_WTH_MBX, 
nml$bld_repTy, 
nml$send, 

nml $debug_msg; 


LITERAL 
nml$c_maxmbxmsg = 200; 


OWN 
nml$w_mom_mbx_chan: WORD INITIAL (0) 


nml$w_config_ chan: WORD, 
nml $w_mbxchan: WORD 

nm $q_mbx_iosb: Siosb, 
nm $a_mbxmsg: 


nf 9 
NG (*::*, 
***TASK=S$NICONFIG/', 


VECTOR Crml$c_maxmbxmsg, BYT 
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e28eb= 1984 13:40:69 


Lity-wide definitions 
definitions 

CP QI0 interface 
common definitions 


<22n" 
zrne-m 
NAOMO 


! Channel to Mailbox for communicating 
with 


Logical Link channel to NICONFIG. 
Logical Link's Mailbox channel. 
I0SB for mailbox Q10s. 

os message buffer. 


Se 


' Local node 
' Declared task name 


AX-11 Bliss-32 eo el dt 
NML.SRCINMLFORWRD.B32; 


vae=tB0 


, ny 


14 
14 
1 
1 
1 
1 
1 
15 
15 


Se ee Se Sete Sees eseses 
— ot 
Onl wrnr— 


0 
Q 
0 


td 
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nml$q_ncb = 


UPLIT (¢ 


%CH GHAR (0,0), 


tones 2 


ECT «$ 


-Sep- 
! Word of zero 


OUNT ($nml_niconfig_ncb), 
(SOWNS) (ShmL_niconFig_ncb)) 


i a dd 
POAAOW 
Wr—OoOo 


SSLESRANVLSSSLESLAN SESS VFAPAVES SSIS ARAVASSSISAF 


LESAN LS SSLEREANLESSLE 


oo 


a 
VMrwn—O 
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Routine to invoke Maintenance Op 14-Sep-1984 NML.SRC 


ZSBTTL "NMLSCALL_MOM Routine to invoke Maintenance Operations Module’ 
GLOBAL ROUTINE NALSCALL_MOM: NOVALUE = 


BEGIN 


lee 

' FUNCTIONAL DESCRIPTION: 
' The Maintenance Operations Module (MOM) is a separate program from 

NML and NCP. t's function is to perform various maintance operations 
such as down Line load, up Line rie trigger, and loop circuit, node, 
or line. for operator requested maintenance functions, NML is 

a conduit for the NICE request and ryspones. in this module, NML 
establishes a mailbox to which it writes the NICE messages, and 

then spawns MOM. MOM perverse the function and puts a NIC 

in the mailbox. NML t 


FORMAL PARAMETERS: 
None 


é response 
en forwards this NICE response to NCP. 


IMPLICIT INPUTS: 
The NICE message in nml$ab_rcvbuffer. 


IMPLICIT OUTPUTS: 
A NICE message is sent to NCP. 


SIDE EFFECTS: 
The Maintenance Operations Module (MOM) is run. 


wn" ee ee te ee ee 


IELD 
itmlst_fields = 
SET 


itm_buf_len = (0,0,16,0), 
itm_item_code = £-8-18-8 ° 
piceelsfae Fab a8 
m_ret_len = 
itm-list_end = (12,6,38,04 
TES; 
LOCAL 
status, 
mom_status, 
msg_len 
geravi. italst: BELOCK ¢] FIELD Citmlst_fields), 
crelnm_itmlst: BBLOCK (4) FIELD (itmist_fields); 


mbx_name: BBLOCK [64]; 


Create mailbox with which to communicate with MOM. Create a logical name 

for the mailbox in the process logical name table. MOM inherits NML's logical 
names as a result of the SPAWN, and putting the logical name in the process 
savie makes sure that other incarnations of NML and MOM do not use this 
mailbox. 
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ALL_MOM :50:0 NMLFORWRD .B32; 
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NMLSFORWARD Netwo : 
v04- C Routine to invoke Maintenance Op 14-Sep-1984 : NML.SRCINMLFORWRD B32; 


IF .nml$w_mom_mbx_chan EQL 0 THEN 
BEGIN 


status = SCREMBX (CHAN = nml$w_mom_ 
MAXMSG 


= nml$k rs 
PROMSK = %8'11T1 
nml_chkerr (.status, 0); 


getdvi_itmist Citm_buf_len] = 64; 
getdvi_itmist Litm_item_code] = dvi$_devnam; 

getdvi_itmist Litm_buf_add] = mbx_name; 

getdvi_itmist Litm_ret_len itmist Citm_buf_lenJ; 


an, 
| Max length for a NICE message. 
§0000');! Protection = S:RWED, O:RWED, G, W 


oo 


vv 
OOOoCocoo 


MMIPMUTOPOTOToToTrorororfnorororororofrornrny 


= creCnm 

getdvi_itmist Litm-Lisf_end] = 0; 

Status = S$GETDV] (CHAN = .nml$w_mom_mbx_chan, 
ITMLST = getdvi_itmlsf); 


nml_chkerr (.status 3 
cre(nm_itmlst itm_item.co e] = Lnm$_string; 
crelnm_itmist Litm_buf_add] = mbx_name; 
crelnm_itmlst Citm_ret_lenj_= crelnm_itmlst Citm_buf_len]; 
crelnm_itmist Citm_Lisf_end) = 0; 
status = SCRELNM (TABNAM = ZASCID "LNMSPROCESS TABLE’, ! Process logical name table, 
LOGNAM = ZASCID "NMLSMOM_MBX’, 
ITMLST = crelnm_itmlst); 
nml chkerr (.status, 0); 


vw 
OOOOCCCoCooCoooo0o 


v 


message being passed to 


CHSMOVE ( nml $a 
CHSMOVE (3, nml$ 
msg_len = .nml$g 


_rcvdatlen, nml$ab_rcvbuffer, nml$ab_rcvbuffer+3); 
pb_ncp_version nmU$ab_rcvbuf fer); 
_rcvdatlen + §; 


; Write NICE message to mailbox 


nml_config_.qio (.nml$w_mom_mbx_ chan 
io$_writevBlk OR io$m_now, 
nmlSab_rcvbuf fer, 
msg_len); 


] 

! Spawn the Maintenance Operations Module (MOM). MOM will translate the 

' Logical name, NMLSMOM_MBX, and then read the NICE message and process it. 
: When it is done, it will write a response NICE message 

Status = LIBSSPAWN wy *S @SYSSSYSTEM:MOM.COM', 


mom_status); 


o the mailbox. 


WAN WWIWIWIIPonononononefnonsng9ns 2 


RUAN BEE ERE ERE Ww 


o 


PIPIPIPIPIPIPIPIPINIPYNININININININYAD 


3 


If NOT .status THEN 

status = LIBSSPAWN (ZASCID ‘S$ @SYSSSYSTEM:MOM.COM', 
ID ‘NL:*, ! Null input device 
Ny *"NL:', ' Null output device 


Oa 
Wwr— 


$ 
4 
8 
9 
0 
4 
8 
9 
0 
4 
5 
$ 
3 i Put the NCP network ey ee version number at the beginning of the NICE 
0 — 
4 
8 
9 
0 
; 
4 
8 
9 
0 
; 


$9 Read mailbox to get the NICE response MOM puts there when it's finished. 


6 . 
e3 msg_len = nml$k_sndbflen; 
0 nmal~config_qio T.nml$w_mom_mbx_chan, 


RoRoRofonononononononunonononononononononononononononononununononononunonofurororonorononororonononunororonofornony 


eee ee eee eee eww pw lolololololololol~) 


N=2SSSELE TAF 
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v04-000 NMLSCALL "ROMS Routine to invoke Maintenance Op 14-Se Het 99:43:08 NML.SRCINMLFORWRD. 835; ex (3) 
s 273 71 io$_readvblk OR — now, 
: 74 if nmlSab_sndbuf fer 
: 6 a ; msg_len); 
: i] 75 2! Check to make sure that the message I got back isn't the one I just 
: 278 6 ! wrote to the mailbox. This can happen if MOM isn't successfully 
: 64 A started up. 
> 281 0 79 if CHSEQL (. aon Ya dg} ay nat see ghtybu ter. 
; Hy + n, nml$ab_sn abutter, 
; 8 0281 nml _chkerr crt ‘maattitas 2 ); 
; Bs 0 es ; Send msg to NCP. 
; 3H 0285 catineail (nml$ab sentiut ter. Par len); 
: 288 0286 1 END; of nmU$cail _mom 


-TITLE NMLSFORWARD Network Management Listener module 
: to forward N 
-IDENT \vV04-000\ 


.PSECT $PLITS,NOWRT ,NOEXE , 2 
| 
| 


00000015 00000 P.AAA: .LONG 21 : 

00000000' Boone ADDRESS P.AAB 3 

42 41 56 SF 53 53 45 43 GF 52 50 246 4D rh: 4¢ 0008 P.AAD: .ASCII \LNMS$PROCESS_TABLE\<0><0><0> $ 
00 00 00 45 4€ 00017 3 

81 0E OOM Q001C P.AAC: .LONG a Sr So 3 

0000000 00020 “ADDRESS, P.A 3 

00 58 42 4D SF 4D GF 4D 246 4C 4D 4E& 00024 P.AAF: .ASCII NAL Shon, MBX\<0> ; 

OO O0RR 0030 P.AAE: .LONG Meds 3 

0000000' ait -ADDRESS P.AAF ; 

4D 3A 4D 45 54 53 59 53 i: 53 59 53 40 20 24 0038 P.AAH eASCII \$S @SYSSSYSTEM:MOM. COM\<0><0><0> 3 
00 00 00 4D 4F 43 2E 4D 4F aed : 

010E0015 00050 P.AAG: .LONG 17694741 : 

vet ae 0054 ADDRESS P.AAH : 

4D 3A 40 45 54 53 59 53 26 53 59 3 40 4 00058 P.AAJ: .ASCII \$ @SYSSSYSTEM:MOM. COM\<0><0><0> : 
00 00 00 4D 4F 43 2E 4D 4 Hie 14 3 

10E0015 070 P.AAI: .LONG 17694741 : 

0000000" 00074 ADDRESS P.AAJ : 

00 3A 4C & 078 P.AAL eASCII \NL:\<0> 3 

0105 08 O7C P.AAK: .LONG 17694723 3 

00 . 04 -ADDRES g 

3A 4C 3 P.AAN: .ASCII \NL:\<0> ; 

0105. 000 » Boge P.AAM: .LONG 17694723 3 

00 08C eADDRESS P.AAN : 


-PSECT SOWNS,NOEXE,2 
0000 00000 NALSW_MOM_MBX_CHAN: 
00002 NMLSW - CONFIG ae} 
00004 NMLSW_MBXCHAN: 
-BLKB § 
00006 -BLKB 


Network Management Listener module 


NMLSFORWARD 

v04-000 NMLSCALL_MOM 

-BLKB 

00010 miei 

46 4E 4F 43 49 4E 24 3d 4B 41 54 22 3A 3A 000D8 P.AAB: -ASCII 
00 00 33 00 00 5 47 $0 a bey 


td ASCII 
OFO MBX_NAME: 


NML$Q_NCB= 


E 
~EXTRN 
»PSECT 


ent Listener module. to forvard w Tb-fep-1986 00:15:46 


00008 NML$Q_MBX_I0SB: 


AX-11 Bliss-32 V4.0-742 
NML .SRC NMLFORWRD .B32; 1 


\: :"'TASK=$NI CONF IG/\<0><0>\''\<0><0> 


P.AAA 
NML$GB_EVTSRCT 


“ACP. CHAN 
NMLSGL-LOGMASK, NML$GQ_ENTSTRDSC 
BUFFER 


L_NMV, RMSEM 
NML$ AS-RECBU “WACSAL Ce ENT INE TAB 
NMSA “PERMINET 

NAL SAW W"PRM_DES NAL SGB_ CMD_VER 

NMLS$GB-ENTITY_COD 

NAL SCB- ENT ty" FORMAT 
NMLS$GL~QUALIFTER_PST 
NAL $68 QUALIFIER FORMAT 


GB-FUNCTI 
NML$GB~INFO, NML$GB_OPTIONS 
NMLS$GL =PRACODE NALSOL _PRS_FLGS 
NMLS$GL-NML_E NTE TY 

L$GQ"NET Nose 
NML$GQ"RECBFDSC 
NMLSGW~ PRMDESCNT 

L368 NCP_V 


ERSION 
OPABTERA UTBSSPAUN 
352h W x 


scones uomt.2 
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A 
6E 00200040 
E OOFO 
04 
oc 


10 


00FO 
04 


04 


EC 


000000006 
000000006 


Oc 


OMMNMONM OMIM MIM NWOOOOOoO 


VF>PEFP OVLOOCUVWOVNFSVWVNE AS POCONO NA NP NVNP PF OWOMANV10 MONONA" QO0OO 
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TNS PUM OUIWN SM JUTE NU I IOOP 
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‘68 EN mL ¢ 


L.SRCINMLFORWRD.B32; 1 


NM SCALL AOR, Save R2,R3,R4,R5,R6,R7,R8,R9,- 
R10,R1 


NML$AB RCVBUFFER, R11 
NM CHRERR, R1 


J # R 
NML SU MOM_MBX_CHAN, RB 
NM SW_MOM_MBX_ CHAN 


-(SP) 
#65280, -(SP) 

#512, -(SP) 

RB 

=-(SP) 

#7, SYSSCREMBX 

RO, STATUS 

-(§p) 

STATUS 

2 NML_CHKERR 

#2097216, GETDVI_ITMLST 
MBX_NAM DVI~ITMLST+4 
CRECNM_ITMLST, GETDVI_ITMLST+8 
GETDVI-ITMLST#+12 

-(SP) 

-(SP) 

GETDVI_ITMLST 

NML $W_MOM_MBX, CHAN, -(SP) 

#8, SYSSGETDVI 

0. STATUS 


R 
-(§p) 

STATUS 

#2, NML_CHKERR 

#2, CRECNM $T+2 


ITML 
MBX_NAME, CRELNM_ITMLST+4 
CRECNM_ITMLST, GRELNM_ITMLST+8 
CRELNM ITMLST# 


a4~< 
wn 
_ 
—_ 


° CHKERR 
NMLSGL_RCVDATLEN 


Le] 
Deze 


NMLSGB_NCP-VERSION, #0, #24, 
CVBUFFER 


“RCVBU 
), MSG_L 
LEN 


R6 
AB_RCVBUFFER, NMLSAB_RCVBUFFER+3 


Pee Se Se Se Sse Se Se Se Se Se Se Se Se Fe Se Fe Ge Se Se Ge Ge Fe Se Se Fe Se Fe Fe Ge Se Se Ge Fe Se Se So Se Se Se Ve Be Se Be So Fe Se Se Se Fe Se Fe Se Fe Se B 


_—c XE Ls 


13 
NML SF ORWARD Network Management Listener module to forward N 18-5¢ -1984 00:15:4 AX-11 Bliss-32 V4.0-742 P 
v04-000 NMLSCALLMOM® Routine to invoke Maintenance Op 1 73007138 99:15:98 ENML.SRe NMLFORWRD .B32;1 ih ay 


if: 7O $C 3h B0RE8 HOviCL fouS0. MON Mex CHAN, CSP) 
00000000v 5 00 CALLS #4, NAL_CONFIG_QIO° 
08 STATUS 


20 P.AAG 
CALLS #7, LIBSSPAWN 
0; STATUS 


000000006 99 ’ 
1A BLBS STATUS, 2 


FF NNP VWM10 F NNN POO 


oom 
COoooooscDaoooo: 
Sp aa eh 


OF NVWOS FWOMon 
Qov oO 
--c - 
DBDVBow< Zz 

& 
=z 
o 
= 
wm 
“4 
> 
“ 
& 
wn 


000000006 00 
57 


> 
ono 


P.AAI 
CALLS #7, LIBSSPAWN 
M RO, STATUS 
MOM _ STATUS 
PUSHL STATUS 
2 


CALLS He NML_CHKERR 
#512, MSG_LEN 
MSG_LEN 


PUSHAB NMLSAB_SNDBUFFER 
#113, =(SP) 
NML$W_MOM_MBX_CHAN, =(SP) 
CALLS #4, NAL_CONFIG QI0 
CMPCS NMLSGL_RCVDATLEN, NMLSAB_RCVBUFFER, #0, - 
BsG_LER, NMLS$AB_SNDBUF FER 


Oo 
oo 
Wi> 
~m 
—~ 
nr 
wv 
co 
no< 
> 


6A 
Oc AE 0200 


roo 
~m 


MOMMFAMPLPOOLaon"omn 


00000000v 00 
Oc AE 0 68 


L =(SP) 
MOVZ2WL #2160, -(SP) 
LS #2, NML_CHKERR 


MS 
PUSHAB NMLSAB_SNDBUFFER 
cts #2, NMCSSEND 


Ww 
ad 
V0 
cP 
or 
= 
- 


oC 
000000006 
000000006 00 


OOP OONOCOOCOCOCO OO 


SOSOSCSOSOSOSCOOOOOOSOOOOSOOOOOOOOOOOOOOOOoOO 


~~nOo 
FOOIDOLS VWMWOP VN VMODIO VOM VAMRWLEONMDODM "LOOM 
COoooooococoocooooooooooooooooooooo 


F 
: 
D 
9 
9 
9 
F 
D 
9 
D 
F 
3 
9 
9 
9 
3 
F 
2 
F 
D 
9 
F 
0 


3; Routine Size: 347 bytes, Routine Base: $CODE$ + 0000 


ss os sn as ts os 2s 2s 2s 2 1 te 
yussscsseereyervsacessess 
> 

zz 

oo 

<< 

~ew 

<ow 

al 


FWS YS NVIOM OMNOUN—Wornw"og 


Se Be Be Se Se Se Se Be Se Se Se Ge Be Se Se Fe Se SF Ge Fe Fe Ge Se Fe Ge Ge Ge Se Ge Ge Ge Ge Ge Ss Se Ge SESH Se SESH SESE SE See Se Se Se Se Se Se Se Ss erases 


NMLSFORWARD 
v04-000 


308 


ek ed ed ed td ed OD 


MMmrornorornorr 


AWWIAIAIWIWIWANIWIAWWAIW AAAI AANA AANA AANA AWW 
AVE WN 0 OONOUEWUR (OOO NOUESWN “OC OONOULSWN—O0O~n 


BRR ESE SPW inn 


ork Management Listener module to forward 
CALL_NI_CONFIG Rout 


me 


PIPQPININIPIPDPIPOPYNIPINIPIPIPIPYPIPIPONIPININININIPINIPIPIPINIPPIPUPINIPIPIPIPIPIPINIPIPUPIPOPIPININININY 


BRS SWANN WNiwinronoronn 


' 


L 


ne to talk to NI Con 


N 1 
f 1 
ZSBTTL “NMLSCALL NI CONFIG Routine to t 
GLOBAL ROUTINE NMLSCALL_NI_CONFIG: NOVALU 


BEGIN 
144 
! FUNCTIONAL DESCRIPTION: 
This routine is called when NML receives a 
SET/SHOW MODULE CONFIGURATOR command. 
It establishes a logical Link to the NI Configurator Module 
(NICONFIG), and then drives the process of sending and receiving 
NICE messages between NCP and NICONFIG. 


FORMAL PARAMETERS: 
NONE 


1 
$ 
Sep-1 
k to NI Configurator Module’ 
= 


a 
E 


IMPLICIT INPUTS: 
The NICE message in nml$ab_rcvbuffer. 


IMPLICIT OUTPUTS: 
NICE response message(s) from NICONFIG in nml$ab_sndbuffer. 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


_ 
(=) 
o 


AL 

msg_len; 

i] 

: Open a logical Link to configurator module. 


nml_open_config_link Q; 


i Send the NICE message to the NI Configurator Module via the logical 
Link just established. 


nml_config_qio (.nml$w cont ig.chan. 
o$_writevbl 

nmlSab_rcvbuffer 

; nml$gl-rcvdatlen); 

!' Now read the response message (or messages) returned by the 

NICONFIG, and forward them to NCP. 


nop..ton = nml$k_sndbflen; 
nml~config_qio %.nml$w_config_chan, 
readvblk 
nmlSab_sndbuf fer, 
msg_len); 


feb SY ae 4 


3 
ep=1986 12:50:08 ENML.SRCINALFORWRD B32; 


N 13 
Network Management Listener module to forward N 16-Sep-1984 00:15:4 AX-11 Bliss-32 V4.0-742 
NMLSCALL_NI_CONFIG Routine to talk to NI Conf 12286-1384 99313:98 ENML «SRC NMLFORWRD .B32; 1 


44 : 
o 45 ! If NICONFIG is returning multiple responses, go into a loop until all 
rf : have been forwarded to NCP. Note that the ‘more’ and ‘‘done'’ messages 
0 rf : are not forwarded because NML already sends them on it's own. 
6 49 IF .nml$ab_sndbuffer <0,8> EQL nma$c_sts_mor THEN 
8 50 BEGIN 
51 WHILE true DO 
B326 4 BEGIN 
0353 4 asp..ton = nml$k_sndbflen; 
0354 4 nml-config_qio T.nml$w_config_chan, 
8322 & io$_readvblk 
56 4 nm\$ab_sndbuf fer, 
b8eh : msg_len); 
0359 4 : When NICONFIG returns a ‘‘done’’ message, exit. A ‘‘done’’ message 
tre 2 is sent to NCP Later. 
B06 4 IF .nml$ab_sndbuffer <0,8> EQL (nma$c_sts_don AND %X'FF') THEN 
0363 4 EXITLOOP 
0364 4 EL 
0365 4 : 
oeee : } Forward NICONFIG's response to NCP. 
0368 4 nml$send (nml$ab_sndbuffer, .msg_len); 
0369 3 D; 
0370 3 END 
0371 § ELSE 
O378 ‘ 
03735 2 ' Send msg to NCP. 
0374 2 : 
0375 2 nml$send (nml$ab_sndbuffer, .msg_len); 
0376 1 END; ! of nml$call_ni_config 
003c 00000 ENTRY NMLSCALL_NI_ CONFIG, Save R2,R3,R4,R5 
55 000000006 00 9E 00002 MOVAB NMLSSEND 
54 00000000v 00 9E 009009 MOVAB NML_CONFIG Q10, R4 
53 00000000' 00 9E 00010 MOVAB NMLSW_CONFIG CHAN, R3 
52 000000006 00 4 0017 oy NMLSAB_SNDBUFFER, R2 
3 4 ¢ Beg SUBL S$ 
00000000V 0 0 FB 000 CALLS) #0, NML_OPEN_CONFIG_LINK 
00000000G 00 9F 00028 PUSHAB NMLS$GL_RCVDATLEN 
000000006 9 9F 0002E PUSHAB Wat SAS _ACVOUF FER 
° bo Ba0 4 PUSHL #4 
7E 6 C 00036 MOVZWL NMLSW_ CONFIG CHAN, -(SP) 
64 4 FB 00039 CALLS #4, NAL CONFIG Q16 
6E 0200 F 3C 0003C MovZwL #512, MSG_LEN 
4004 8F BB 00041 PUSHR #@M<R2,SPS 
1 bo 0045 PUSHL 
7E 63 3C 00047 MOVZWL NMLSW_CONFIG_ CHAN, -(SP) 
64 04 FB O004A CALLS #4, NAL CONFIG Q10 
02 62 91 0004D CMPB NMLSAB_SNDBUFFER, #2 
20 12 00050 BNEQ 2s 


>. 

Oo 
Nm 
ie] 
00 


14 


NMLSFORWARD Network Management Listener module to forward N 16-Sep-19 r 9 13 +88 AX-11 Ol teens V4.0-742 
v04-000 NMLSCALL_NI_CONFIG Routine to talk to NI Conf 14-Sep-1984 NML.SRCINMLFORWRD.B32;1 
6E 0200 :- 00088 1$: poyzul #512, MSG_LEN 
4004 8F BB 005 PUS #AM<R2, SPS 
1 ge 8 58 PUSH 749 
7E 3 C 050 MOVZWL NMLSW_CONFIG_CHAN, =-(SP) 
64 4 FB 0006 CALLS , NAL_CONFTG Q10 
80 8F oe a 006 CMPB NMLSAB_SNDBUFFER, #128 
10 13 0006 BEQL 
86 DD 00069 PUSHL MSG_LEN 
52 DD 00068 PUSHL R 
65 os FB 00060 CALLS #2, NMLSSEND 
EO 11 0007 BRB 
g DD Bae 2$ PUSHL MSG_LEN 
DD 0007 PUSHL R 
65 0 FB 00076 CALLS #2, NMLSSEND 
04 00079 3$: RET 


; Routine Size: 122 bytes, Routine Base: SCODE$ + 015B 


yard N 16-Sep-1984 90:13:66 AX-11 Bliss-32 V4.0-742 


NMLSFORWARD Network Reneqynent Listener module to for 
04-000 nml_open_config_link Open Link to NICONFI Sep-19 NML.SRCINMLFORWRD.B32;1 
81 0377 ZSBITL ‘nml_open_config_link Open Link to NICONFIG' 
Bs 0 4: ROUTINE nml_open_config_link: NOVALUE = 
84 80 '++ 
85 0381 ! FUNCTIONAL DESCRIPTION: 
58 8 6 This routine opens a logical link to the NI Configurator Module. 
88 0 Se ' FORMAL PARAMETERS: 
89 0385 : NONE 
90 0386 : 
91 0387 ! IMPLICIT INPUTS: 
3 0 HA : 
9 0389 ! IMPLICIT OUTPUTS: 
94 0390 ; nml$wiconfig_chan = Channel to Configurator Module. 
395 0391 : nml$Swimbxchan = Channel to mailbox. 
396 0238 ; 
97 039 ! ROUTINE VALUE: 
98 0394 ! COMPLETION CODES: 
99 0395 : NONE 
00 0396 ! 
01 0397 ! SIDE EFFECTS: 
02 0398 : NONE 
403 0399 : 
404 0400 feo 
405 0401 
406 040 BEGIN 
407 040 
408 0404 LOCAL 
409 0405 iosb : $iosb, ! 10 status block 
0406 status; 
0407 
0408 


OWN 
OBJNAM_DESC : BBLO 
INITIAL (% 


CK COSC$C_S_BLN) 
3 CHARCOUNT (*S$NICONF IG") 
3% UPLIT PSECT (SOWNS) (ZASCII "SNICONFIG')); 


' 
i If there is already a Link to the NI Configurator Module, just return. 


IF .nml$w_config_chan NEQ 0 THEN 


RETURN ss$_normal; 
status = j FRSA rR fe ( ZASCID ‘_NET:', : Assign channel to NETACP 
0 ! mailbox MAXMSG, BUFQUO (ignored) 


i 
! 
nmi $w_config_chan, i Channel to Configurator Module 


nmi Swombxchan) ; ! Channel to mailbox 
nml_chkerr (.status, 0); ! Check completion status and 
; signal if there's an error 
P status = $0]0W ( 
P FUNC = io$_access ' Request connect 
. CHAN = .nmU$w_config_chan, ! Use assigned channel 


10SB = iosb, 
P2 = nml$q_ncb); 


nml_chkerr (.status, iosb); 


Network connect block 


oo 
aS 
—o 
ow 
POR SPOR OR ORORORORORORORONONOPOROFURCRONONONOPORONUNONONONONNUN — 


yo at oT at ot ot at af nt ot at ot bt at-bat eee 


eo Nonr une 


Check completion status and 
: signal if error. 


] 
D 14 
NMLSFORWARD Network Management Listener module to forward N 16-Sep- AX-11 Bliss-32 V4.0-742 Page 15) 
v04-000 nml_open_con or Link Open Link to NICONFIG 14- =Sep- 1984 99: 43:3 NML -SREINMLFORWRD B30. . (5) | 
; 438 P 0434 2 status = $alow ( | 
>; 439 P 0435 FUNC = io$_readvblk, ' Request read on mailbox 
; 440 P 04 § CHAN = .nmUSw_mbxchan, ! Use assigned channel 
> 441 P 04 10SB = iosb, | 
> 44 P 0438 Pl = nml$a_mbxmsg, ' Buffer to contain mailbox message 
; ree tz3 P2 = nml$c_maxmbxmsg); ! Size maximum on mailbox message | 
: 445 0441 nml_chkerr (.status, iosb); ' Check completion status and | 
> 446 044 : signal if error. 
3; 447 044 IF nt a —y. CO] NEQ msg$_confirm THEN 
: ret Bete L_chkerr (ss$_endoffile, 0); ! The connect was not accepted. 
; 450 446 RETURN; 
; 451 0447 1 END; ! of nml_open_config_Llink 
-PSECT S$PLITS,NOWRT ,NOEXE ,2 | 
00 00 00 3A 54 45 GE SF 00090 P.AAP: .ASCII \ Wa] 5 e0><0><O> : 
010E0005 00098 P.AAO: .LONG 17694725 3 
00000000' 0009C ADDRESS P.AA : 
-EXTRN SYSS$QI10W 
-PSECT SCODES,NOWRT,2 
003C 00000 NNL_OPEN_ vara LINK 
WORD “Save *R2, R3,R4,R5 ; 0378 
55 00000000G 00 9€ 0000 MOVAB Sys$a10w RS 3 
54 00000000v 00 9€ 0000 MOVAB L_CHKERR : 
53 00000000" 00 9 82019 MOV Nat Sa CONFIG. CHAN, R3 3 
5E 0 C2 0001 SUBL 3 
: BS OOO1A TSTW © NMLSW_CONFIG_CHAN : 0416 
8 12 O0001C BNEQ 1$ : 
02 a3 9F OOO1E PUSHAB NMLSW_MBXCHAN ; 0419 
5 bo 00021 PUSHL R3 5 
7E C 000 H CLROQ > had 3 
00000000" 00 9F 000 PUSHAB 3 
000000006 00 5 FB 000 CALLS re LIBSASN. WTH_MBX ; 
52 0 D 00 MOVL RO, STATUS 3 
D4 000 CLRL = <{$P) > 0424 
64 85 PB D008 CATS ays CHKERR : 
9 7C 09 C CLRO 0s =(SP) > 0430 
43 7C 00 CLRQ -(SP) 3 
00000000' 9 F PUSHAB NML$Q_NCB 3 
— 7C¢ : LROQ - 3 
7E 4 4 CLAL (SP) 3 
20 A F A PUSHAB i 8 : | 
3 go i) PUSHL ; 
7E 8 C F MOVZWL na Su CONFIG_CHAN, =(SP) : 
E D4 ¢ CLRL =(SP 3 
$3 ‘ a CALLS 4 . SYS$Q10W 3 
2 D 7 MOVL goa ys 3 
4006 8F BB A PUSHR Pach > 0432 | 
64 2 FB E CALLS #2, NAC CHKERR : | 
| 


14 

NML SF ORWARD Network Management Listener module to forward N 1heSep-1 AX-11 Bliss-32 v4.0-74 Page 16 
v04-000 nml_open_config_link Open Link to NICONFIG 122808138 93: 43: 39 NML ..SRCINMLFORWRD .B32; . (5) 
7E 7C 0006 CLROQ -(SP) 3; 0439 

7E 7C 6 RQ (SP) : 

7E C8 8F 9A 6 MOVZBL #200, -(SP) : 

OE A3 9F 00069 HAB NMLSA_MBXMSG : 

7E 7C 0006C CLRQ -(SP) : 

20 AE OF pgs PUSHAB 1038 3 

31 tg : PUSHL HG : 

7E 02 A3 C es MOVZWL NMLSW_MBXCHAN, (SP) 3 

7E 04 0007 CLRL rt : 

65 of 4) Ba oe CALLS #12, $¥$8010w F 

52 D 07C¢ MOVL RO, STATUS 3 
4004 Be 6B Bere PUSHR #*M<R2, sP> 3; 0441 

64 ¢ rR 83 CALLS oe itt 3 
31 OE AS 91 00086 CMPB LSA MABXMSG. 49 : 0443 

OA 13 OOO8A BEQL if 3 
E Be set CLAL =( 3; 0444 

7E 0870 8F 3C 44 MOVZWL of 160, -(SP) 3 

64 02 FB 0009 CALLS #2, NML_CHKERR : 
04 00096 1$: RET 3; 0447 


; Routine Size: 151 bytes, Routine Base: $CODE$S + 0105 


| F 14 

NMLSFORWARD Network Mana anent Listener wife to forward N 16- gep- 138% 90: 13:6 AX-11 Bliss-32 V4.0-7 Page 17 
v04-000 nmi _config.qio Issue Q10 to NICONFIG 14-Sep-1 :50:0 NML.SRCINMLFORWRD. B32: (6) 
3 se? 448 1 XSBTIL ‘nml_config_qio Issue Qi0 to NICONFIG' 

3 2 ¢ +38 : ROUTINE nmi_ “tontigcg io (forward _chen, function, buffer_addr, buffer_len) = 
3 £8 res 1 t¢ 

s 4657 4 § 1! FUNCTIONAL DESCRIPTION: : 

3 +28 Be ? : Issue a read or a write on the logical Link to NICONFIG. 

; 460 $e? 1 ! FORMAL PARAMETERS: 

: 461 4 § 1! forward_chan = channel on which to do Q10 

; re 4 457 1! function = io$_readvblk or io$ _writevblk 

3; 46 0458 1! buffer_addr - Address of buffer from which to put or get data. 
> 464 4 | buffer_len = byte count of data to write, or size of buffer 

; 465 460 1! to receive data. 

; 466 0461 1! 

; 467 046 1 ! OUTPUTS: 

; 468 6465 1! buffer_len = length of data read (if it's a read). 

; 469 0464 1! 

; 470 0465 1 ! IMPLICIT INPUTS: 

3 «471 0466 1! 

3; 47 0467 1! 

; 47 0468 1 ! IMPLICIT OUTPUTS: 

: 46746 0469 1! 

3; 475 0470 1! 

; 476 0471 1 ! ROUTINE VALUE: 

3: 677 0472 1 ! COMPLETION CODES: 

3; 478 04735 1! 

; 4679 0474 1! NONE 

; 480 0475 1! 

> 481 0476 1 ! SIDE EFFECTS: 

; 48 0477 1! 

; 48 0478 1! NONE 

; 484 0479 1! 

; 485 0480 1 !-- 

; 486 0481 1 

3; 687 048 BEGIN 

>; 488 048 

; 489 0484 LOCAL 

; 490 0485 status, 

: $33 rt iosb: Siosb; 

: 49 ot + IF .function EQL io$_writevblk THEN 

7 494 489 “nmi $debug_msg (dBg$c_netio, 

3; 495 0490 . buffer seer. 

: rh 369) vput ter 

; 49 ane ZASCID CAlee’ message forwarded to NICONFIG or MOM'); 
: 498 P 049 status = $0]0W (CHAN s = .forward_chan, 

: 499 P 0494 FUN function, 

: 500 P 0495 1088 = josb 

: 501 P 98 Pl = atte addr 

: 208 3 P2 = ..buffer_len); 

: 20 3 nal_chkerr (.status, iosb); ! Check completion status and 
: 505 500 i signal if error. 
: 88 23 IF function EQL io$_readvbik OR 

; 5 ; function EQL (ioS_readvblk OR io$m_now) THEN 

3 208 37 BEGIN 

: 509 5 -buffer_len = .iosb Cios$w_count); 


14 
work Poa mye Listener module to forward N 18- -$ep-1984 
_config_qio 


AX-11 Bliss-32 V4.0-74 
Issue Q10 to NICONFIG 14-Sep-1984 99: 43: $8 NML.SRCINMLFORWRD.B32; 
nml$debug_msg (dbg$c_netio, 
-buffer_addr, 
. buffer Len 
_ ZASCID "RICE message received from NICONFIG or MOM’) 
RETURN nml$_sts_suc; 
END; ! of nml_config_qio 
-PSECT SPLITS,NOWRT,NOEXE,2 
73 73 65 6D 20 45 43 49 & OOAO P.AAR: .ASCII \NICE message forwarded to NICONFIG or MO\ 
74 $8 64 65 $e qs 61 77 5 20m ° 
4D 72 6F 20 47 49 46 4E eg 
00 00 60 4D Bet ASCII \M\<0><0><0> 
01 0088 OCC P.AAQ: .LONG hye rer 
00000000" 00000 “ADDRESS P 
73 73 65 6D 20 45 43 49 “ 0004 P.AAT: .ASCII \wice’ message received from NICONFIG or M\ 
72 66 20 64 65 76 69 65 6 00E3 
20 72 6F 20 47 49 466 4E 4F O00F2 
00 00 4D 4F OOOFC ASCII \OM\<0><0> 
010E002A 00100 P.AAS: .LONG 17694762 
00000000° 00104 ADDRESS P.AAT 
-PSECT SCODES,NOWRT,2 
0004 00000 NML_CONFIG_QI0: 
-WORD Save R2 
52 000000006 00 9€ 00002 MOV NMLSDEBUG_MSG, R2 
5E 08 C2 00009 SUBL #8, SP 
30 08 AC 01 Baots CMPL FUNCTION, #48 
11. 12 0001 BNEQ oe 
00000000° 00 9OF BR01§ PUSHAB 
10 BC OD 0001 PUSHL SBUFFER LEN 
0c AC DD 0001B PUSHL BUFFER _ADOR 
7E 04 0001 CLRL P) 
62 Of FB 000 CALLS y NMLSDEBUG_MSG 
E 7C 00023 1$: CLRd) 20s = ( §p) 
7E 7C 000 CLRQ -(SP) 
10 BC ODD 8 PUSHL @BUFFER_LEN 
oc 3=6AC bo A PUSHL BUFFER_ADDR 
7E 7C 00020 CLRQ -(SP) 
30 AE 7 F PUSHAB $B 
7E 4 AC D vQ FORWARD_CHAN, -(SP) 
7E 04 LAL P) 
000000006 00 C FB CALLS ‘#12, 5Vss0i0u 
4001 F BB F PUSH #*M<RO,SP> 
00000000Vv 99 2 F 3 CALLS #2, NML_CHKERR 
1 08 at b 4A CRP FUNCTION, #49 
00000071 += &F 08 * ) 3 ek FUNCTION, #113 
10 BC 02 AE 3C A 2% MOVZWi IOSB+2, @BUFFER_LEN 


0449 


0488 
0491 


0489 


0497 


23 


ement List eer mo 


Teote le ntact ; i 
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. (6) 


; 0507 
i 9508 
: $31 


< 
es 
~_ 
39 
= 
; 
> 
= 
LJ 
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Network Management Listener module to forward N 1h-$ 1984 15:4 AX-11 Bliss-32 V4.0-74 P 
nml_chkerr Check Q10 completion status 1-8ep-19 4 99:433 YNML SREINALF RUD B3oe a (3 


s AND 
-iosb NEQ 0 THEN 
status = .iosb Cios$w_status); 
IF NOT .status THEN 
BEGIN 


! Get rid of the logical Link to NICONFIG, and clear the channel number 

' so the next request to NICONFIG causes NML to establish another logical 
Link to NICONFIG. 

] 

i 
: 


19 13 ZSBTTL ‘nml_chkerr Check Q10 completion status’ 
Y 13 ROUTINE nmi_chkerr (status, iosb): NOVALUE = 
eG 

1 ' FUNCTIONAL DESCRIPTION: 

4 218 ! This routine is called to check the status returns for Q10s 
5 1 : on the logical Link to NICONFIG. If there is an error, a response 
8 : y message is built, and sent to NCP via the handler. 
8 5 § ' FORMAL PARAMETERS: 
9 5 ! status - the completion status of the Q10 
. 2 : iosb - the address of the iosb for the Q10. 
¢ 5 § ' ROUTINE VALUE: 

: COMPLETION CODES: 

i 529 ! NONE 

530 ! 

531 len 

338 

5 BEGIN 

534 

535 MAP 

238 iosb: REF Siosb; 

538 LOCAL 

44 msgsize; 

5 If .statu 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 


SDASSGN (CHAN = .nml$w_config_chan); 
nml$w_config_chan = 0; 
nm 


DONO ULSWN—“O OONOUS WH —O0On 


! Send an error response to NCP. 


\Sab_msgblock (msb$b_code] = nma$c_sts_ope; 
IF “pseeus EQL ss$_endoffile THEN 


nml$ab_msgblock fmsbst flags] = msbSn_msg.tld; 


nml$ab_msgblock [msb$l_text] = nml$_opabterm; 
ELS 
BEGIN 
nal $ab_msgblock pasbst.flegs) = msb$m_msg_fld OR msb$m_sysm_fid; 
nal$ab_msgblock ([msb$l_text] = .status; 


pmt$bld_reply (nml$ab_msgblock, msgsize); 
pe tgnat 06 nml$ab_sndbuffer, .msgsize); 


QPUPVDPVPV DUP DV DVL LULU DVLVDULVULVSVIU SUSI PUSIUSUSUSUSIUSVSV SUSIE SUSU SUSU SIUSISIOSTSISISISISTIOSIIUIIOIS 


RIA B&B BAKE HS HS FMAM HAHAHA AAAI POPPIN NPPINPUNPINUNIDY St 9 tt I 


Be Se Se Ge Ge Se Se Ge Se Ge Be Gs Ge Se Ge Se Ge Ge Se Ge Ge Ge BeBe Se Ge Ge Ge Se Se Ge Se Ge Gee Ge Se Ge Se Ge Se Se Se Se ee Ge StS Oe Se Ge Oe Se ee Sees 


oa 8 a 
379 


nmi_chkerr C 


O37) eno; 


04 
000000006 
04 
00000870 
oc 
oc 
000000006 
000000006 


; Routine Size: 118 bytes, Routine 


Name Bytes 


Network Managenent Listener module to forward N 1b-5¢ ge0- 198% 90: 13: 48 


ck Q10 completion status -Sep-1 
! of nml_chkerr 
.EXTRN 
000¢ 00000 NMLCHKERR: 
5> 00000000' 00 9€ 000 MOVAB 
33 Dopp0NNeG 90 SE pooes MOV 
5E 04 C Bi SUBL 
OE o% AC E 1 BLBC 
8 at D8 01 TSTL 
05 13 QOO1A BEQL 
AC 08 BC 3¢ 001C MOVZWL 
50 04 ag 5 0021 1$ BLBS 
7E 6 C 00025 2$ MOVZWL 
00 01 FB 00028 CALLS 
63 Be 002F CLRW 
A2 19 8E 00031 MNEGB 
8F 04 ac ODI 90033 CMPL 
0D 12 00030 BNEQ 
6 04 D0 0003F MOVL 
A2 00000000G 8F 00 00042 MOVL 
09 11 OO004A BSB 
62 44 8F 9A OO004C 3$ MOVZBL 
A2 04 ac 00 9030 MOVL 
4004 8F BB 00055 4$ PUSHR 
00 02 FB 00059 CALLS 
6—E DD 00060 PUSHL 
000000006 3 OF B86 PUSHAB 
01F 90000 F ODD PUSHL 
00 03 FB 414 CALLS 
04 00075 5$: RET 
Base: S$CODE$ + 02E0 
.EXTRN 
PSECT SUMMARY 
Attributes 
04 NOVEC, WRT, RD -NOEXE, NOSHR, LCL, 
3 4 NOVEC;NOWRT, RD .NOEXE,NOSHR, LCL, 
4 NOVEC.NOWRT, RD; EXE.NOSHR. LCL. 


AX-11 Bliss-32 V4.0-74 
NML.SRCINMLFORWRD.B32; 


SYSSDASSGN 


Sav 
NML SW Re ne 16 CHAN, R3 
NML$AB_MSGBLOCK, R2 


SP~ 
StAtUs, 2$ 


alose STATUS 
thy CONFIG_CHAN, -(SP) 
1. SYS$DASSG 

NMLS$W_ CONFIG _C 
#25, RML$ SAB ASCBLOCK +4 
status, #21 2180 


#4, NMLSAB_MSGBLOCK 
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: soceeee= Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped Tim 

i .$255$duA28: + ENML -OBJINMLL 18.133; 1 341 31 9 27 0:00.1 
; 7255s DUA :CSHRLIB NMALIBRY <L 231 88/ 3 47 0:00.¢ 
> .$255$0 : CSHRLIBINET.L32;1 1279 0 $3 $300. 

: 3 aespuAsBsEStst Ie STARLET.L32;1 9776 16 581 0:03.2 
: COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NMLFORWRD/OBJ=OBJ$:NMLFORWRD MSRC$:NMLFORWRD/UPDATE=(ENH$:NMLFORWRD) 
: Size: 854 code + 568 data bytes 

: Run Time: 00:18.4 

; Elapsed es 00:58.4 

3; Lines/CPU Min 1877 

3 Lexemes/CPU-Min: 14193 

s penery Used: 135 pages 
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